home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
Panorama3_d1.adf
/
F10.Panorama
< prev
next >
Wrap
Text File
|
1992-12-29
|
881b
|
48 lines
/* Create an unending series of fractal landscapes and view each
from 3 positions. To quit, press escape while a picture is
being drawn (after clicking on the picture to make it the
active window). */
OPTIONS RESULTS
address 'Panorama'
'AmigaOverscan 1'
'HoldPic'
do forever
'NewScape 0 1'
'NewLevel'
'NewLevel'
'NewLevel'
'Lakes 0'
if rc > 10 then leave
'Rivers 2 16'
'SunPosition 0 40'
'ShadingType 3'
'ObsDir 90'
'ObsDist 4700'
'RelObsZ 500'
'ViewDir 270'
'VertViewAngle 10'
'FocalLength 35'
'SunContrast 0.5'
'DrawPic'
if rc > 10 then leave
call time 'R'
do until time('E')>10
end
'ObsDir 210'
'ViewDir 30'
'SunContrast 0.7'
'DrawPic'
if rc > 10 then leave
call time 'R'
do until time('E')>10
end
'ObsDir 330'
'ViewDir 150'
'SunContrast 0.25'
'DrawPic'
if rc > 10 then leave
'ShowPic'
end